* %%%%%%%%%%%%%%%%%%%%%%%%
* Graphs of Unemployment Rate Using LFS
* 
* %%%%%%%%%%%%%%%%%%%%%%%%


* %%%%%% GRAPHS %%%%%%
use "LFSCollapsedEmployment.dta", clear 

ren askermale male

* Sindh, varying education and age
 
tw (line unempm year if male==1 & agegr==1 & edlvl==1 & province==2,lp(dash) lcolor(black) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==1 & edlvl==1 & province==2, mcolor(black) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==2 & edlvl==1 & province==2, lp(dash_dot) lcolor(black*0.5) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==2 & edlvl==1 & province==2, mcolor(black*0.5) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==3 & edlvl==1 & province==2, lcolor(black*0.8) ylabel(0(0.2)1))  ///
(scatter unempm year if male==1 & agegr==3 & edlvl==1 & province==2, mcolor(black*0.8) ylabel(0(0.2)1) ///
 xtitle("Year", size(medsmall))   ///
 legend(order(1 "20-30" 3 "30-40" 5 "40-50")) ///
ytitle("Employment Rate, Male") graphregion(color(white)))

graph export 


tw (line unempm year if male==1 & agegr==1 & edlvl==2 & province==2,lp(dash) lcolor(black) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==1 & edlvl==2 & province==2, mcolor(black) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==2 & edlvl==2 & province==2, lp(dash_dot) lcolor(black*0.5) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==2 & edlvl==2 & province==2, mcolor(black*0.5) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==3 & edlvl==2 & province==2, lcolor(black*0.8) ylabel(0(0.2)1))  ///
(scatter unempm year if male==1 & agegr==3 & edlvl==2 & province==2, mcolor(black*0.8) ylabel(0(0.2)1) ///
 xtitle("Year", size(medsmall))   ///
 legend(order(1 "20-30" 3 "30-40" 5 "40-50")) ///
ytitle("Employment Rate, Male") graphregion(color(white)))

graph export

tw (line unempm year if male==1 & agegr==1 & edlvl==3 & province==2,lp(dash) lcolor(black) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==1 & edlvl==3 & province==2, mcolor(black) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==2 & edlvl==3 & province==2, lp(dash_dot) lcolor(black*0.5) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==2 & edlvl==3 & province==2, mcolor(black*0.5) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==3 & edlvl==3 & province==2, lcolor(black*0.8) ylabel(0(0.2)1))  ///
(scatter unempm year if male==1 & agegr==3 & edlvl==3 & province==2, mcolor(black*0.8) ylabel(0(0.2)1) ///
 xtitle("Year", size(medsmall))   ///
 legend(order(1 "20-30" 3 "30-40" 5 "40-50")) ///
ytitle("Employment Rate, Male") graphregion(color(white)))

graph export 

* Punjab, varying education and age 

tw (line unempm year if male==1 & agegr==1 & edlvl==1 & province==1,lp(dash) lcolor(black) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==1 & edlvl==1 & province==1, mcolor(black) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==2 & edlvl==1 & province==1, lp(dash_dot) lcolor(black*0.5) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==2 & edlvl==1 & province==1, mcolor(black*0.5) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==3 & edlvl==1 & province==1, lcolor(black*0.8) ylabel(0(0.2)1))  ///
(scatter unempm year if male==1 & agegr==3 & edlvl==1 & province==1, mcolor(black*0.8)  ylabel(0(0.2)1) ///
 xtitle("Year", size(medsmall))   ///
 legend(order(1 "20-30" 3 "30-40" 5 "40-50")) ///
ytitle("Employment Rate, Male") graphregion(color(white)))

graph export 

tw (line unempm year if male==1 & agegr==1 & edlvl==2 & province==1,lp(dash) lcolor(black) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==1 & edlvl==2 & province==1, mcolor(black) ylabel(0(0.2)1)) ///
 (line unempm year if male==1 & agegr==2 & edlvl==2 & province==1, lp(dash_dot) lcolor(black*0.5) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==2 & edlvl==2 & province==1, mcolor(black*0.5) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==3 & edlvl==2 & province==1, lcolor(black*0.8) ylabel(0(0.2)1))  ///
(scatter unempm year if male==1 & agegr==3 & edlvl==2 & province==1, mcolor(black*0.8) ylabel(0(0.2)1) ///
 xtitle("Year", size(medsmall))   ///
 legend(order(1 "20-30" 3 "30-40" 5 "40-50")) ///
ytitle("Employment Rate, Male") graphregion(color(white)))

graph export 

tw (line unempm year if male==1 & agegr==1 & edlvl==3 & province==1,lp(dash) lcolor(black) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==1 & edlvl==3 & province==1, mcolor(black) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==2 & edlvl==3 & province==1, lp(dash_dot) lcolor(black*0.5) ylabel(0(0.2)1)) ///
(scatter unempm year if male==1 & agegr==2 & edlvl==3 & province==1, mcolor(black*0.5) ylabel(0(0.2)1)) ///
(line unempm year if male==1 & agegr==3 & edlvl==3 & province==1, lcolor(black*0.8) ylabel(0(0.2)1))  ///
(scatter unempm year if male==1 & agegr==3 & edlvl==3 & province==1, mcolor(black*0.8) ylabel(0(0.2)1)  ///
 xtitle("Year", size(medsmall))   ///
 legend(order(1 "20-30" 3 "30-40" 5 "40-50")) ///
ytitle("Employment Rate, Male") graphregion(color(white)))

graph export 

